// Pruebas de Objetos de Clases derivadas a partir de TWindow

//----------------------------------------------------------------------------//

function Main()

   local dlg := TDialog():New( 10, 10, 20, 40, "Hola" )

   SET COLOR TO "W+/BG"
   CLS

   dlg:Display()

   InKey( 0 )

   dlg:Hide()

return

//----------------------------------------------------------------------------//
